home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / frte.zip / MULTTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-06  |  147b  |  10 lines
  1. uses mult;
  2. var
  3.   w1,w2,w3:word;
  4. begin
  5.   TrapMultError := false;
  6.   W1 := 32000;
  7.   w2 := 32000;
  8.   w3 := multword(w1,w2);
  9.   writeln(w3);
  10. end.